home *** CD-ROM | disk | FTP | other *** search
/ Master Visual Basic 3 / Master Visual Basic 3 (SAMS Publishing) (1994).ISO / mvprog / original / ch12 / dest3.frm (.txt) < prev    next >
Encoding:
Visual Basic Form  |  1994-04-09  |  3.4 KB  |  118 lines
  1. VERSION 2.00
  2. Begin Form frmDest3 
  3.    BackColor       =   &H000080FF&
  4.    Caption         =   "The DEST3 Program"
  5.    ClientHeight    =   4650
  6.    ClientLeft      =   1080
  7.    ClientTop       =   855
  8.    ClientWidth     =   4230
  9.    Height          =   5055
  10.    Icon            =   DEST3.FRX:0000
  11.    Left            =   1020
  12.    LinkTopic       =   "Form1"
  13.    ScaleHeight     =   4650
  14.    ScaleWidth      =   4230
  15.    Top             =   510
  16.    Width           =   4350
  17.    Begin CommandButton cmdRequest 
  18.       Caption         =   "&Request"
  19.       Height          =   495
  20.       Left            =   1560
  21.       TabIndex        =   4
  22.       Top             =   4080
  23.       Width           =   2535
  24.    End
  25.    Begin TextBox txtFromSource 
  26.       Height          =   1335
  27.       Left            =   120
  28.       MultiLine       =   -1  'True
  29.       ScrollBars      =   3  'Both
  30.       TabIndex        =   1
  31.       Top             =   2640
  32.       Width           =   3975
  33.    End
  34.    Begin CommandButton cmdExit 
  35.       Caption         =   "E&xit"
  36.       Height          =   495
  37.       Left            =   240
  38.       TabIndex        =   0
  39.       Top             =   4080
  40.       Width           =   1215
  41.    End
  42.    Begin Line Line3 
  43.       BorderColor     =   &H00FFFF00&
  44.       BorderWidth     =   10
  45.       X1              =   480
  46.       X2              =   3600
  47.       Y1              =   1680
  48.       Y2              =   1680
  49.    End
  50.    Begin Line Line2 
  51.       BorderColor     =   &H00FFFF00&
  52.       BorderWidth     =   10
  53.       X1              =   360
  54.       X2              =   3840
  55.       Y1              =   1440
  56.       Y2              =   1440
  57.    End
  58.    Begin Label Label2 
  59.       Alignment       =   2  'Center
  60.       BackColor       =   &H00000000&
  61.       BorderStyle     =   1  'Fixed Single
  62.       ForeColor       =   &H00FFFFFF&
  63.       Height          =   735
  64.       Left            =   240
  65.       TabIndex        =   3
  66.       Top             =   240
  67.       Width           =   3855
  68.    End
  69.    Begin Line Line1 
  70.       BorderColor     =   &H00FFFF00&
  71.       BorderWidth     =   10
  72.       X1              =   240
  73.       X2              =   3960
  74.       Y1              =   1200
  75.       Y2              =   1200
  76.    End
  77.    Begin Label Label1 
  78.       Alignment       =   2  'Center
  79.       BackColor       =   &H000080FF&
  80.       Caption         =   "The following data came from SOURCE:"
  81.       FontBold        =   -1  'True
  82.       FontItalic      =   0   'False
  83.       FontName        =   "MS Sans Serif"
  84.       FontSize        =   12
  85.       FontStrikethru  =   0   'False
  86.       FontUnderline   =   0   'False
  87.       Height          =   615
  88.       Left            =   120
  89.       TabIndex        =   2
  90.       Top             =   1920
  91.       Width           =   3735
  92.    End
  93. Option Explicit
  94. Sub cmdExit_Click ()
  95.     End
  96. End Sub
  97. Sub cmdRequest_Click ()
  98.     ' Clear the notification label
  99.     Label2.Caption = ""
  100.     ' Disable the Request button
  101.     cmdRequest.Enabled = False
  102.     ' Request a new data
  103.     txtFromSource.LinkRequest
  104. End Sub
  105. Sub Form_Load ()
  106.     ' Set the topic
  107.     txtFromSource.LinkTopic = "SOURCE|Dummy"
  108.     ' Set the item
  109.     txtFromSource.LinkItem = "txtToDest"
  110.     ' Establish a manual DDE
  111.     txtFromSource.LinkMode = 3
  112. End Sub
  113. Sub txtFromSource_LinkNotify ()
  114.     Beep
  115.     cmdRequest.Enabled = True
  116.     Label2.Caption = "New data is waiting for you!"
  117. End Sub
  118.